COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.RETAIN
C00004 ENDMK
C⊗;
.RETAIN

.SSNAME ← "INDEX"; SECNAME ← SSNUMBER ← NULL
.	BEGIN FILL NOJUST INDENT 0,3 PREFACE 0 TURN ON "←→∞\"
.	AREA TEXTER LINES 4 TO HLINES-2 IN 2 COLUMNS 3 APART
.	PORTION INDEX
.	IF EVEN PAGE THEN NEXT PAGE;
.	PLACE TEXTER
.	SELECT 1;
.	SECNAME ← "INDEX";
.send contents ⊂skip 2;
%2{secname}→{page!}%*{skip;⊃
.	WASWORD ← WASPG ← NULL ;
.	AT "<" PGNO "≤" PHRASE "≥" ⊂
.		IF "PHRASE" ≠ WASWORD THEN START BREAK }PHRASE   PGNO{ END
.		ELSE IF "PGNO" ≠ WASPG THEN }, PGNO{ ;
.		WASPG ← "PGNO" ; WASWORD ← "PHRASE" ; ⊃
.	RECEIVE "≤≥"
.	END

.count page printing "i";
.portion prefASS
.comment ******
.REQUIRE "NOTES.PRE" SOURCE_FILE
.*****;
.SECNAME ← SSNAME ← "CONTENTS"
.SSNUMBER ← NULL
.<<count  page  printing "i";>>
.PORTION CONTENTS
.FILL NOJUST CRBREAK TURN ON "←","→","∂","\","∞";
.PLACE TExT
.INDENT 0,30,10 PREFACE 0 TABS 21,24,27,30,33,36,39,42,45,48,51,54,57,60,63;
.SELECT 2
←T A B L E   O F   C O N T E N T S
.SKIP 3
.fill nojust crbreak TURN ON "←","→","∂","\","∞";
%2PREFACE→i%*
.SKIP;
%2CHAPTER→PAGE%1
.SKIP;
.SELECT 1
.RECEIVE